home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / windows / wbt31a.zip / RUNGEN.WB$ < prev    next >
Text File  |  1991-02-17  |  653b  |  12 lines
  1. ; Generic Macro  This macro pulls of a list of all macros and bat files
  2. ; and allows user to select one to run.
  3.  
  4. ActWin=WinGetActive()                  ;Get currently active Window
  5. DirChange(DirHome())                   ;Change to Home directory
  6. List=FileItemize("*.WBM *.WBT")        ;Get a list of all WBM and WBT files
  7. RunMe=ItemSelect("Select Macro/Batch",List," ")   ;Allow user to select one
  8. if RunMe=="" then exit                 ;Gee, nothing was selected
  9. WinActivate(ActWin)                    ;Activate original Window
  10. call(RunMe,"")                         ;And call our little file
  11. Exit                                   ;Bye Bye
  12.